home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 23 / AACD 23.iso / AACD / Programming / tek / kn / elate / visual / destroyvisual.asm < prev    next >
Encoding:
Assembly Source File  |  2001-05-12  |  1.4 KB  |  61 lines
  1.  
  2.     .include 'taort'
  3.     .include 'ave/toolkit/toolkit.inc'
  4.     .include 'lib/tek/kn/elate/visual.inc'
  5.  
  6. ;=============================================================================
  7. ;-----------------------------------------------------------------------------
  8. ; 
  9. ;    TEKlib
  10. ;    (C) 1999-2001 TEK neoscientists
  11. ;    all rights reserved.
  12. ;
  13. ;    void kn_visualdestroy(TAPTR visual)
  14. ;
  15. ;-----------------------------------------------------------------------------
  16. ;=============================================================================
  17.  
  18.     tool 'lib/tek/kn/visual/destroyvisual',VP,0
  19.  
  20. ;-----------------------------------------------------------------------------
  21.  
  22.     ent p0 : -
  23.  
  24.     defbegin
  25.     defp visual
  26.     defp ave,temp
  27.     
  28.         bcn    visual eq 0,_dw_exit
  29.  
  30.         cpy.p    [visual+vis_ave],ave
  31.         bcn    ave eq 0,_dw_noave
  32.  
  33.         cpy.p    [visual+vis_toolkit],temp
  34.         bcn    temp eq 0,_dw_notkit
  35.  
  36.         ncall    ave,closetoolkit,(ave,temp:-)
  37.  
  38. _dw_notkit:    cpy.p    [visual+vis_app],temp
  39.         ncall    ave,close,(ave,temp:i~)
  40.  
  41. _dw_noave:    cpy.p    [visual+vis_buffer],temp
  42.         qcall    lib/free,(temp:-)
  43.  
  44.         cpy.p    [visual+vis_buffer2],temp
  45.         qcall    lib/free,(temp:-)
  46.  
  47.         cpy.p    [visual+vis_font],temp
  48.         bcn    temp eq 0,_dw_nofont
  49.         qcall    ave/font/close,(temp:-)
  50. _dw_nofont:
  51.         qcall    lib/free,(visual:-)
  52.  
  53. _dw_exit:
  54.         ret
  55.         
  56.     defend
  57.     toolend
  58.  
  59. ;-----------------------------------------------------------------------------
  60. ;=============================================================================
  61.